﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
dim myid
myid=qingtian.nid
%>
<%

pid=request("pid")

ids=myid
Select Case pid
   Case "1"
      itidtit="原始森林"
   Case "2"
      itidtit="魔鬼山洞"
   Case "3"
      itidtit="丰富矿山"
   Case "4"
      itidtit="浩瀚北海"
 End Select
%>
<card title="<%=itidtit%>">
<p>

<%
set rs=Server.CreateObject("ADODB.Recordset")
strSQL="select * from sx where cstr(ids)="&myid
rs.open strSQL,liao,1,1
if rs.recordcount<=1 then
if rs("tl")<1 then
sql="delete from pk Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
sql="delete from kywap Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
sql="delete from wupin Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
Response.Write "GAME-OVER!<br/>您被怪物杀害了<br/>包袱物品全部消失！<br/><a href='index.asp?cc="&cc&"&amp;ve="&ve&"'>继续江湖</a><br/>"
   rs.close
set rs=Nothing
else
dengji=clng(rs("dj"))
mygj=rs("gj")
myfs=rs("fs")
myjy=rs("jy")
mytl=rs("tl")
   rs.close
set rs=Nothing
set rs1=Server.CreateObject("ADODB.Recordset")
strSQL="select * from pk where pid="&pid&" and cstr(ids)="&myid
rs1.open strSQL,liao,1,2
gwsx=clng(rs1("gj")-myfs)
if gwsx>clng(mysx) then
mysx1=clng(gwsx*0.15)
sql="update sx set tl=tl-"&mysx1&" where cstr(ids)="&myid
  liao.Execute(sql)
Response.Write "逃跑失败了！凶猛的怪物扑了过来<br/>我的生命值-"&mysx1&"<br/>("&mytl&"/"&myjy&")<br/><a href='gong.asp?pid="&pid&"&amp;t=" & time() & "&amp;cc=" & cc & "'>攻击</a>|<a href='shou.asp?pid="&pid&"&amp;t=" & time() & "&amp;cc=" & cc & "'>防守</a>|<a href='tao.asp?pid="&pid&"&amp;cc="&cc&"&amp;ve="&ve&"'>逃跑</a><br/>"
else
sql="delete from pk Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
Response.Write "逃跑成功！<br/>"
end if
   rs1.close
set rs1=Nothing
end if
end if


%>
=========<br/>
<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">[江湖首页]</a><br/>

<%qingtian.shuchu%>

